home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD017a.dsk / GAME2.bas < prev    next >
BASIC Source File  |  2003-06-12  |  8KB  |  138 lines
  1. 5 U1 = 0:U2 = 0
  2. 10  FOR I = 771 TO 789: READ A: POKE I,A: NEXT 
  3. 20  DATA  173,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76,3,3,96
  4. 30  GOTO 370
  5. 52  FOR YX = 1 TO 11: IF AZ(YX) >1  THEN  ON AZ(YX) GOSUB 58,58,54,65,72,82,96,60,57,57,58: GOSUB 120: CALL 36361
  6. 53  NEXT : RETURN 
  7. 54 L = 27143: GOSUB 100:X = 100:Y = 135: RETURN 
  8. 57 L = 28146: GOSUB 100:X = 256:Y = 126: RETURN 
  9. 58 L = 29024: GOSUB 100:X = 29:Y = 98: RETURN 
  10. 60 L = 28085: GOSUB 100:X = 220:Y = 140: RETURN 
  11. 65 L = 26883: GOSUB 100:X = 200:Y = 95: RETURN 
  12. 72 L = 26935: GOSUB 100:X = 230:Y = 120: RETURN 
  13. 82 L = 26996: GOSUB 100:X = 30:Y = 120: RETURN 
  14. 96 L = 27088: GOSUB 100:X = 140:Y = 130: RETURN 
  15. 100 LL = L - INT(L/256) *256:LH =  INT(L/256)
  16. 110  POKE 36352,LL: POKE 36353,LH: RETURN 
  17. 120  POKE 36354,X -(X >255) *256: POKE 36355,X >255: POKE 36356,Y: RETURN 
  18. 140  PRINT N$(2);
  19. 145  VTAB  PEEK(37) +1: HTAB 23: CALL  -868: GET A$
  20. 150 Z =  ASC(A$) -64
  21. 152  IF Z =  -51  AND SW = 0  THEN  POKE  -16303,0:SW = 1: GOTO 145
  22. 153  IF Z =  -51  THEN  POKE  -16304,0:SW = 0: GOTO 145
  23. 155  IF Z <1  OR Z >26  THEN 145
  24. 156  IF V$(Z) = "X"  THEN 145
  25. 200  VTAB  PEEK(37) +1: HTAB 23: PRINT V$(Z);
  26. 205  VTAB  PEEK(37) +1: HTAB  PEEK(36) +2: INPUT "";B$
  27. 210  IF B$ = ""  THEN ZZ =  PEEK(37): POKE 37,ZZ -1: GOTO 145
  28. 211  IF Z = 9  THEN  GOSUB 1020:S = 1
  29. 213  IF Z = 17  THEN  GOTO 1140
  30. 215  RETURN 
  31. 250  PRINT N$(3): RETURN 
  32. 332  HGR : POKE 253,1: POKE 254,102: POKE 252,0: POKE 4,1
  33. 334  FOR X = Z1 TO Z2  STEP SZ
  34. 336 SD = X/35
  35. 338  POKE 255,0: POKE 5,SD
  36. 340  GOSUB 360
  37. 342  CALL 16400
  38. 344  POKE 0,X/2: POKE 1,5:QT =  PEEK( -16336) + PEEK( -16336): CALL 771:QT =  PEEK( -16336)
  39. 346  HCOLOR= 0: POKE 255,1: GOSUB 360
  40. 348  CALL 16400
  41. 350  NEXT 
  42. 355  RETURN 
  43. 360  POKE 249,X -(X >255) *256: POKE 250,X >255: POKE 251,30: RETURN 
  44. 370  PRINT : PRINT : PRINT : PRINT N$(24)
  45. 371 C1 = 0: FOR X = 1 TO 9:AZ(X) = 0:AZ$(X) = "": NEXT 
  46. 372  IF W1 = 2  AND S1 = 1  THEN L = 27693: GOSUB 100: CALL 36400: PRINT N$(25): GOTO 378
  47. 373  IF S1 = 1  AND W1 = 3  THEN L = 27776: GOSUB 100: CALL 36400: PRINT N$(26): GOSUB 52: GOTO 378
  48. 374  IF S1 = 0  AND W1 = 2  THEN L = 27387: GOSUB 100: CALL 36400: PRINT N$(27): GOTO 378
  49. 376 L = 27222: GOSUB 100: CALL 36400: PRINT N$(60)
  50. 378  IF T = 0  AND H = 0  THEN  PRINT N$(28)
  51. 380  IF T = 0  AND H = 1  THEN  PRINT N$(29)
  52. 382  IF H = 0  AND T = 1  THEN  PRINT N$(30)
  53. 384  GOSUB 140
  54. 385  IF Z = 4  AND W1 = 3  AND S1 = 1  THEN  GOSUB 1030:S = 1: IF CZ = 1  THEN  IF C$ = "CHAN"  THEN AZ(YZ) = 0:AZ$(YZ) = "": PRINT N$(55):CZ = 0:S = 0: GOTO 378
  55. 386  IF CZ = 1  THEN CZ = 0:S = 0: GOTO 372
  56. 387  IF Z = 4  AND S = 0  THEN  PRINT N$(31): GOTO 378
  57. 388  IF Z = 7  AND W1 < >3  AND S1 < >1  THEN  GOSUB 1008: GOTO 378
  58. 389  IF Z = 7  THEN  GOSUB 1000:S = 1: IF GT = 1  THEN GT = 0:S = 0: GOTO 372
  59. 390  IF Z = 12  AND S1 = 0  AND W1 = 2  THEN  GOSUB 997: IF C$ =  LEFT$(P$(2),4)  THEN  PRINT  MID$ (P$(2),6, LEN(P$(2))): GOTO 378
  60. 391  IF Z = 12  OR Z = 18  THEN  IF W1 = 3  AND S1 = 1  THEN  GOSUB 997: IF C$ = IT$(8)  THEN  GOSUB 1132:S = 1: IF GT = 1  THEN GT = 0: PRINT P$(4):S = 0: GOTO 378
  61. 392  IF S = 1  THEN  GOTO 500
  62. 394  IF Z = 12  OR Z = 18  THEN  IF W1 = 3  AND S1 = 1  THEN  GOSUB 1060: GOTO 378
  63. 396  IF Z = 12  OR Z = 18  THEN  GOSUB 997: GOSUB 1070: GOTO 378
  64. 400  IF Z = 5  AND W1 = 2  AND S1 = 0  THEN  GOTO 1140
  65. 402  IF Z = 5  AND W1 = 3  AND S1 = 1  THEN W1 = 2: GOTO 372
  66. 404  IF Z = 5  AND W1 = 2  AND S1 = 1  THEN W1 = 1: GOTO 372
  67. 406  IF Z = 5  AND W1 = 3  AND S1 = 0  THEN W1 = 2: GOTO 372
  68. 408  IF Z = 14  AND S1 = 1  AND W1 = 2  THEN S1 = 2: GOTO 372
  69. 409  IF Z = 14  AND S1 = 0  AND W1 = 3  THEN  PRINT N$(61): GOTO 1140
  70. 410  IF Z = 14  AND W1 = 2  AND S1 = 0  THEN S1 = 1: GOTO 372
  71. 411  IF Z = 23  AND S1 = 2  AND W1 = 2  THEN  PRINT N$(61): GOTO 1140
  72. 412  IF Z = 23  AND S1 = 1  AND W1 = 2  THEN W1 = 3: GOTO 372
  73. 414  IF Z = 23  AND S1 = 1  AND W1 = 1  THEN W1 = 2: GOTO 372
  74. 416  IF Z = 23  AND S1 = 0  AND W1 = 2  THEN W1 = 3: GOTO 372
  75. 420  IF Z = 19  AND W1 = 2  AND S1 = 1  AND T = 1  AND H = 1  THEN SZ = 2:Z1 = 1:Z2 = 199: PRINT N$(62): GOSUB 332: GOTO 600
  76. 422  IF Z = 19  AND W1 = 2  AND S1 = 1  THEN  PRINT N$(63): GOTO 1140
  77. 424  IF Z = 19  AND W1 = 2  AND S1 = 2  THEN S1 = 1: GOTO 372
  78. 430  IF Z = 5  OR Z = 14  OR Z = 19  OR Z = 23  THEN  GOSUB 1080:S = 1
  79. 432  IF Z = 21  THEN  GOSUB 997: GOSUB 1132:S = 1: IF GT = 1  THEN S = 0: IF C$ = N$(7)  THEN  PRINT N$(59): GOTO 378
  80. 450  IF Z = 20  AND W1 = 3  AND S1 = 1  THEN  GOSUB 997: IF C$ = N$(32)  THEN  PRINT N$(33);
  81. 451 A$ = ""
  82. 452  IF Z = 20  AND W1 = 3  AND S1 = 1  AND C$ = N$(32)  THEN  GET A$: IF A$ < >"Y"  THEN  IF A$ < >"N"  THEN 452
  83. 455  IF A$ = "Y"  AND C1 = 0  THEN  PRINT :C1 = 1:T = 1: PRINT N$(34):AZ(8) = 8:AZ(9) = 9:AZ$(8) = IT$(8):AZ$(9) = IT$(9): GOTO 372
  84. 457  IF A$ = "N"  OR A$ = "Y"  THEN  PRINT : GOTO 378
  85. 460  IF Z = 2  AND W1 = 3  AND S1 = 1  THEN C2 =  VAL(B$):S = 1: IF C2 <1  OR C2 >3  THEN  PRINT N$(53):S = 0: GOTO 378
  86. 462  IF Z = 2  AND S = 1  THEN  ON C2 GOTO 510,520,530
  87. 498  IF S = 0  THEN  GOSUB 250
  88. 500 S = 0: GOTO 378
  89. 510 X = 1: GOSUB 540:I$(Y) = IT$(2): PRINT N$(54):H = 1:S = 0: GOTO 378
  90. 520 X = 1: GOSUB 540:I$(Y) = IT$(0): FOR X = 1 TO 5: IF I$(X) = IT$(3)  THEN I$(X) = "": PRINT N$(54):S = 0:H = 1: GOTO 378
  91. 522  NEXT :I$(Y) = IT$(2): PRINT N$(55):H = 1:S = 0: PRINT N$(54): GOTO 378
  92. 530  FOR X = 1 TO 5: IF I$(X) = IT$(3)  THEN  PRINT N$(54):S = 0:T = 1:I$(X) = "": GOTO 378
  93. 532  NEXT : FOR X = 1 TO 5: IF I$(X) = IT$(0)  THEN I$(X) = IT$(2): PRINT N$(54): PRINT N$(55):S = 0:T = 1: GOTO 378
  94. 534  IF I$(X) = IT$(1)  THEN I$(X) = IT$(0): PRINT N$(54): PRINT N$(55):S = 0:T = 1: GOTO 378
  95. 536  NEXT : PRINT N$(56):S = 0: GOTO 378
  96. 540  FOR Y = 1 TO 5: IF I$(Y) = IT$(X)  THEN  RETURN 
  97. 545  NEXT : PRINT N$(56):S = 0: POP : GOTO 378
  98. 600  PRINT  CHR$(4);"BLOAD CHAIN,A520"
  99. 605  CALL 520"GAME3"
  100. 997 C$ = B$: IF  LEN(B$) <4  THEN C$ = B$ +"XXXX"
  101. 998 C$ =  LEFT$(C$,4): RETURN 
  102. 1000  GOSUB 997
  103. 1001  FOR X = 1 TO 9: IF  LEFT$(C$,4) =  LEFT$(AZ$(X),4)  THEN  GOSUB 1010:AZ$(X) = "":AZ(X) = 0: PRINT "O'K":GT = 1: RETURN 
  104. 1002  NEXT 
  105. 1008  PRINT N$(36): RETURN 
  106. 1010  FOR Y = 1 TO 5: IF I$(Y) = ""  THEN I$(Y) = AZ$(X): RETURN 
  107. 1012  NEXT : PRINT N$(37): POP : RETURN 
  108. 1020  FOR X = 1 TO 5: IF I$(X) < >""  THEN  PRINT I$(X)
  109. 1022  NEXT : RETURN 
  110. 1030  GOSUB 997
  111. 1031  IF C$ =  LEFT$(IT$(1),4)  THEN  PRINT N$(38): RETURN 
  112. 1032  FOR Y = 1 TO 5
  113. 1033  IF C$ =  LEFT$(I$(Y),4)  THEN  GOSUB 1040
  114. 1034  NEXT Y: PRINT N$(39): RETURN 
  115. 1040  FOR YX = 0 TO 15: IF I$(Y) = IT$(YX)  THEN  GOSUB 1050
  116. 1042  NEXT YX: RETURN 
  117. 1050  FOR YZ = 1 TO 8: IF AZ(YZ) = 0  THEN AZ(YZ) = YX:AZ$(YZ) = IT$(YX): PRINT "0'K":I$(Y) = "": POP : POP :CZ = 1: RETURN 
  118. 1052  NEXT YZ: RETURN 
  119. 1060  GOSUB 997
  120. 1061  FOR Y = 0 TO 3
  121. 1062  IF C$ =  LEFT$(P$(Y),4)  THEN  PRINT  MID$ (P$(Y),6, LEN(P$(Y)));: GOTO 1065
  122. 1064  NEXT : GOTO 1070
  123. 1065  PRINT " WITH ": FOR Y = 1 TO 9: IF AZ$(Y) < >""  THEN  PRINT AZ$(Y);" ";
  124. 1066  NEXT : PRINT : RETURN 
  125. 1070  FOR Y = 1 TO 5: IF C$ =  LEFT$(IT$(4),4)  THEN  IF I$(Y) = IT$(4)  THEN  PRINT N$(41): RETURN 
  126. 1071  NEXT 
  127. 1072  FOR Y = 1 TO 5: IF C$ =  LEFT$(I$(Y),4)  THEN  PRINT N$(42): RETURN 
  128. 1073  NEXT 
  129. 1075  FOR Y = 1 TO 9: IF C$ =  LEFT$(AZ$(Y),4)  THEN  PRINT N$(43): RETURN 
  130. 1076  NEXT 
  131. 1078  PRINT N$(44): RETURN 
  132. 1080  PRINT N$(45): RETURN 
  133. 1132  FOR Y = 1 TO 5: IF C$ =  LEFT$(I$(Y),4)  THEN GT = 1: RETURN 
  134. 1133  NEXT : PRINT N$(39): RETURN 
  135. 1140 L = 26624: GOSUB 100: CALL 36400: PRINT N$(51)
  136. 1144  PRINT N$(52);: GET A$: IF A$ = "Y"  THEN  PRINT : PRINT  CHR$(4);"RUN GAME1"
  137. 1148  IF A$ = "N"  THEN  PRINT  CHR$(4)"RUN KICK.IT.OFF"
  138. 1150  PRINT : GOTO 1144